﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary

<Serializable()> Public Class MaxTable
    Implements ICloneable

    Private m_nMax As Integer = 50
    Property nMax() As Integer
        Get
            Return m_nMax
        End Get
        Set(ByVal value As Integer)
            m_nMax = value
        End Set
    End Property
    Public Function OutPutMaxTable(ByVal Groups As Groups, ByVal AerageingTime As AerageingTime, ByVal ProjID As String) As String
        Dim strMaxTable As String = ""
        If Me.m_nMax > 0 Then
            strMaxTable = "OU MAXTABLE ALLAVE " & m_nMax & vbCrLf
            'Dim strA As String = "" '用于储存字符
            'For nGroup As Integer = 0 To Groups.ArrayGroup.Length - 1
            '    For nTime As Integer = 0 To AerageingTime.GetSelectedAerageingTime.Length - 1
            '        strMaxTable = strMaxTable & "OU MAXIFILE  " & AerageingTime.GetSelectedAerageingTimeToAREMOD(nTime).ToString & " " & Groups.ArrayGroup(nGroup).GroupID & "  " & Me.m_nMax & _
            '        "  Aermod\" & ProjID & "\" & Groups.ArrayGroup(nGroup).GroupID & "_" & AerageingTime.GetSelectedAerageingTime(nTime).ToString & "_MAX.FIL" & vbCrLf
            '    Next
            'Next
            'strMaxTable = strMaxTable & vbCrLf
            Return strMaxTable
        Else
            Return ""
        End If

    End Function
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New MaxTable
        obj.m_nMax = Me.m_nMax
        Return obj
    End Function
End Class
